home *** CD-ROM | disk | FTP | other *** search
/ Pro One: Netcracker Netscape Navigator / ProOne: Netcracker Netscape Navigator.iso / pc / nc / nct04060.geo / 00026.ls < prev    next >
Encoding:
Text File  |  1997-03-19  |  4.3 KB  |  159 lines
  1. on startMovie
  2.   Set_CDcounter(6)
  3.   initLesson()
  4.   CheckForTagWd()
  5. end
  6.  
  7. on HideLastStep
  8.   unLoadCast()
  9.   RestoreHilites()
  10. end
  11.  
  12. on TheinitCursor
  13.   initCursorCastNum()
  14.   initCursorList(1)
  15.   set CursorCastNum to getCursor(2)
  16.   cursor([CursorCastNum, CursorCastNum + 1])
  17. end
  18.  
  19. on checkScreenStatus
  20.   CheckRollOver()
  21.   CheckSnakeStatus()
  22.   go(the frame)
  23. end
  24.  
  25. on BlinkNext
  26.   if (the timer > getTimer()) and not soundBusy(2) then
  27.     startTimer()
  28.     if the name of cast the castNum of sprite get_NEXTSprite() = "NEXT" then
  29.       set the castNum of sprite get_NEXTSprite() to the number of cast "NEXT_E"
  30.     else
  31.       set the castNum of sprite get_NEXTSprite() to the number of cast "NEXT"
  32.     end if
  33.   end if
  34. end
  35.  
  36. on GoNext
  37.   if not get_Disabled() then
  38.     sound stop 2
  39.     if Get_NEXT() = 1 then
  40.       go("t1")
  41.     else
  42.       if Get_NEXT() = 2 then
  43.         go("t2")
  44.       else
  45.         if Get_NEXT() = 3 then
  46.           go("t3")
  47.         else
  48.           if Get_NEXT() = 4 then
  49.             go("t3-blink")
  50.           else
  51.             if Get_NEXT() = 5 then
  52.               go("t4")
  53.             else
  54.               if Get_NEXT() = 6 then
  55.                 go("t5")
  56.               else
  57.                 if Get_NEXT() = 7 then
  58.                   go("t5-blink")
  59.                 else
  60.                   if Get_NEXT() = 8 then
  61.                     go("t6")
  62.                   else
  63.                     if Get_NEXT() = 9 then
  64.                       go("t7")
  65.                     else
  66.                       if Get_NEXT() = 10 then
  67.                         go("t7-a4")
  68.                       else
  69.                         if Get_NEXT() = 11 then
  70.                           go("t8")
  71.                         else
  72.                           if Get_NEXT() = 12 then
  73.                             go("t9")
  74.                           else
  75.                             if Get_NEXT() = 13 then
  76.                               go("t9-blink")
  77.                             else
  78.                               if Get_NEXT() = 14 then
  79.                                 go("t10")
  80.                               else
  81.                                 if Get_NEXT() = 15 then
  82.                                   go("t11")
  83.                                 else
  84.                                   if Get_NEXT() = 16 then
  85.                                     go("t11-blink")
  86.                                   else
  87.                                     if Get_NEXT() = 18 then
  88.                                       go("t12")
  89.                                     else
  90.                                       if Get_NEXT() = 19 then
  91.                                         go("t13")
  92.                                       else
  93.                                         if Get_NEXT() = 20 then
  94.                                           go("t13-blink")
  95.                                         else
  96.                                           if Get_NEXT() = 21 then
  97.                                             GoEndMovie()
  98.                                           end if
  99.                                         end if
  100.                                       end if
  101.                                     end if
  102.                                   end if
  103.                                 end if
  104.                               end if
  105.                             end if
  106.                           end if
  107.                         end if
  108.                       end if
  109.                     end if
  110.                   end if
  111.                 end if
  112.               end if
  113.             end if
  114.           end if
  115.         end if
  116.       end if
  117.     end if
  118.     Set_NEXT(Get_NEXT() + 1)
  119.   end if
  120. end
  121.  
  122. on GoEndMovie
  123.   global ReturnToMenu
  124.   PlaySound("GOSOUND.SO1")
  125.   SaveSeenScreens()
  126.   if (ReturnToMenu = "SUBJECT") and (Get_ScreenSubject() <> "11") and (Get_ScreenSubject() <> "00") then
  127.     set theNum to integer(Get_ScreenSubject())
  128.     go(1, "NCS" & Get_ScreenSubject() & "010.GEO")
  129.   else
  130.     if ReturnToMenu = "TOOL" then
  131.       go(1, "NC_MM020.GEO")
  132.     else
  133.       if ReturnToMenu = "SECTION" then
  134.         go(1, "NC_MM040.GEO")
  135.       else
  136.         if ReturnToMenu = "MAIN MENU" then
  137.           go(1, "NC_MM010.GEO")
  138.         else
  139.           go(1, "NC_MM010.GEO")
  140.         end if
  141.       end if
  142.     end if
  143.   end if
  144. end
  145.  
  146. on stopMovie
  147.   sound stop 1
  148.   unLoad()
  149.   setEmptyCursor()
  150. end
  151.  
  152. on GoNextMovie
  153.   SaveHilite()
  154.   Add_CDcounter(1)
  155.   set cdNum to Get_CDcounter()
  156.   set movieName to item cdNum of Get_CurrentSnakeScreens()
  157.   go("INIT" & Get_ScreenSubject(), movieName & ".GEO")
  158. end
  159.